﻿Module Module1
  Sub Main()
    Dim i As Integer = 1
    While i <= 12
      Console.WriteLine(i)
      i += 1
    End While
    Console.ReadLine()
  End Sub
End Module

